000320* COBOLUnit is a COBOL Unit framework testing
      * FILE : CBUC0000[.CPY]
      *
      * THIS COPYBOOK DESCRIBES BOTH
      * - THE NUMERICAL LIMITS OF THE CURRENT VERSION IN TERMS
      *   OF NUMBER OF "SUITES", "TESTS" AND "ASSERTS"
      * - THE INTERNAL DATA STRUCTURE WHERE THE INFORMATION ABOUT
      *   THESE OBJECT IS STORED
      *
000360 01 CBU-ctx.
           02 CBU-PARAMETERS.
              05 CBU-CURRENT-RELEASE      PIC X(10) VALUE "REL 1.00".
              05 CBU-RELEASE-DATE         PIC X(10) VALUE "2009-10-31".
              05 LOGGING-LEVEL            PIC X     VALUE "1".
                 88 STANDARD-LOG                    VALUE "1" THRU "9".
                 88 VERBOSE-MODE                    VALUE "3" THRU "9".
                 88 DEBUGGING-MODE                  VALUE "5" THRU "9".
              05 CBU-LANGUAGE             PIC X(2)  VALUE "EN".

000359     02 CBU-LIMITS.
      * maximum number of Suites :
              05 maxSuites                PIC S9(4) COMP VALUE 50.
      * maximum number of Tests in a Suite :
              05 maxTests                 PIC S9(4) COMP VALUE 100.
      * maximum number of Asserts in a test :
              05 maxAsserts               PIC S9(4) COMP VALUE 20.

           02 CBU-EXECUTION-VARIABLES.
000366* GLOBAL INFORMATION
000369       05 RunFailureCount          PIC S9(4) COMP.
000370       05 RunSuccessCount          PIC S9(4) COMP.


      * INFORMATION RELATIVE TO SUITE LEVEL
000401       05 SuiteIndex               PIC S9(4) COMP.
      *   TOTAL NUMBER OF SUITES DECLARED THRU THE "ADD-SUITE" PROCEDURE
000395       05 index-current-suite      PIC S9(4) COMP.
      *   INDEX USED FOR LOOPS OVER THE SUITE COLLECTION
000398       05 name-current-suite       PIC X(20).
000392       05 nb-suite-run             PIC S9(4) COMP.

      * INFORMATION RELATIVE TO TESTS LEVEL
000402       05 TestIndex                PIC S9(4) COMP.
      *   NUMBER OF TESTS DECLARED THRU THE "ADD-TEST-NEXT" PROCEDURE
      *   FOR THE CURRENT SUITE. RESET TO 0 IN "ADD-SUITE"
000396       05 index-current-test       PIC S9(4) COMP.
000399       05 name-current-test        PIC X(20).
000399       05 prog-current-test        PIC X(8).
000371       05 TestRunCount             PIC S9(4) COMP.
             05 TestError                PIC S9(4) COMP.

      * INFORMATION RELATIVE TO ASSERTS LEVEL

000380       05 AssertFailureCount       PIC S9(4) COMP.
000388       05 AssertTestCount          PIC S9(4) COMP.

      * "SUITE" COLLECTION STRUCTURE

000413       05 ListeSuites            OCCURS 50.
000414         10 SuiteName           PIC X(20).
000415         10 SuiteDesc           PIC X(50).
000417         10 nb-test-size        PIC S9(4) COMP.
000418         10 nb-test-run         PIC S9(4) COMP.
000420         10 nb-test-failed      PIC S9(4) COMP.
000421         10 nb-test-error       PIC S9(4) COMP.

      * "TEST" COLLECTION STRUCTURE
000422      05 ListeTests             OCCURS 100 TIMES.
                 10 Suite-Reference     PIC S9(4) COMP.
000423        10 TestName            PIC X(20).
                 10 TestProgName        PIC X(8).
000424        10 TestDesc            PIC X(50).
000425        10 nb-assert-run       PIC S9(4) COMP.
000426        10 nb-assert-succeed   PIC S9(4) COMP.
000427        10 nb-assert-failed    PIC S9(4) COMP.

      * "ASSERTS" COLLECTION STRUCTURE (RESERVED FOR FUTURE USE)
000428*      05 ListeAssertRuns OCCURS 20 TIMES.
000429*          10 AssertRunName       PIC X(20).
000430*          10 has-succeed         PIC X.
000431*          10 AssertValueExpected PIC X(255).
000432*          10 AssertValueActual   PIC X(255).
